home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 2 / Gold Medal Software Volume 2 (Gold Medal) (1994).iso / comms / dialers.arj / SUPRA.T < prev    next >
Text File  |  1993-10-06  |  4KB  |  103 lines
  1.     ::  Supra FAXModem V.32bis  SEE NOTES AT END!!
  2. dialnum        if S>57600 sp 57600
  3.     pat; pat 9l OK; goto d2
  4. d1:    pat; pat 9l OK;
  5.     put "ATE1S0=0\r";  wait -f2
  6.     if "!9"  gosub waketb    :: get modem to respond
  7. d2:    put "AT&F2X4 S0=0 S7=45 S36=5 S48=7 S95=44 &T5\r"
  8.     wait -f2
  9.     put "AT"
  10.     :: if js2,a_mnp put "\\N3 "
  11.     :: else if js2,mnp put "\\N4 "
  12.     if js2,300 put "N S37=1 "
  13.     if js2,1200 put "N S37=5 "
  14.     if js2,2400 put "S37=6 "
  15.     if js2,9600 put "N S37=9 "
  16.     if !js2,00  put "N1 S37=0 "
  17.     if "js2,mnp" put "&Q8"
  18.     else put "&Q9"
  19.     if js2,_b put "\\A "
  20.     if js2,_s put "&K4 "
  21.     if js2,v22 put "B0 "
  22.     if dp ss s2 "(c:)(.*)";  if %z2 put "%z2 "    :: for extra commands
  23.     if "%s3>8" put "S7=70"        : longer wait if long distance
  24.     put "Q0S10=10V1\r"; wait -f2
  25.     if "!9" goback d1
  26.     :::if %s1  if !Js1,s handshake slow; lput "Handshake SLOW: "
  27.     if %alds if ps3,0 putw "ATS8=10\r"
  28.     put "%mprefix";  put "%s3%alds";  dis -Q
  29.     if js2,man put ";\r"; echo "Hit F1 when Tone is heard"; t; put "ATD"
  30.     put "\r";  dis -t
  31.     if "js3,;"  accept s1 "Lift Telephone Receiver, Hit ENTER"; o; return
  32.     pat 1 "CONNECT\r"; pat 2 "NO CARRIER"; pat 3 "BUSY"; pat 4 RING;
  33.     pat 5l "ECT 12"; pat 6l "ECT 24"
  34.     pat 8 "NO DIALTONE";  pat 9c "-------";  pat 10l "CONNECT 300"
  35.     pat 11l "CONNECT 96"; pat 12l "CONNECT 192"
  36.     pat 13 "VOICE"; pat 14 "NO ANS"; pat 15l "CONNECT 4800"
  37.     pat 16l "CONNECT 7200";  pat 17l "ECT 12000";  pat 18l "ECT 14400"
  38.     pat 19l "CONNECT 38400"
  39.     wait -f72
  40.     while "4&&!L>3" wait -f40    :: wait for a few rings only
  41.     sets s8 %y2
  42.     if "n||8||2||3||4||13||14" goto sorry
  43.     dis -d
  44.     if dd while "!c&&L<20" sleep 1    : For modems with slow carrier det
  45.     if dp estimate 0 300;  if "hCONNECT" ss y "[0-9]+";  estimate 0 z0
  46.     if "hCARRIER" ss y "[0-9]+";  estimate 0 z0
  47.     if !%s1 goto ns1
  48.     if "hPROTOCOL: NONE" goto arq
  49.     if !Js1,s goto dohs
  50.     echo "Speed Locked"; goto mm2end
  51. ns1:    if "hALT" echo "MNP Connected";  handshake on; goto mm2end
  52.     if "hLAP" echo "LAP-M Connected";  handshake on; goto mm2end
  53.     if js2,mnp set s2 ""
  54. arq:    if "1||10" if is5,450 sp 450; echo "450 bps"; goto mm2end
  55.     if "1||10" sp 300 goto mm2end
  56.     if 5 sp 1200 goto mm2end
  57.     if 6 sp 2400 goto mm2end
  58.     if 15 sp 4800; goto mm2end
  59.     if 11 sp 9600; goto mm2end
  60.     if "12" sp 19200; goto mm2end
  61.     if "19" sp 38400; goto mm2end
  62. sorry:    echo "No Connect Message Detected."
  63.     return
  64. dohs:    if js2,_s handshake sw;  lput "Handskake sw"
  65.     if !js2,_s handshake slow; lput "Handshake SLOW: "
  66. mm2end:    set s9 "y"
  67.     return
  68.  
  69.  
  70.  
  71.  
  72.     ::  Initialize the Supra FAXModem V.32bis
  73.     : "call init,aa" for Unix or VMS dial-in (NOT YAM HOST OPERATION!!)
  74.     :
  75. initmodem
  76.     echo "Initializing Supra FAXModem V.32bis"
  77.     bye;  sleep 20;  speed 2400;  pat; pat 0 OK; pat 1 ERROR
  78.     set s1 "K4"; if dF set s1 "K3"
  79.     put "AT &F2 &D2 &C1 V1 X4 W1 B1 &K0 &Q5 S36=5 S37=0 S0=0 S7=45\r"
  80.     wait -f5
  81.     if 1 echo "ERROR: cycle power on the modem and retry this script"; abort
  82.     if js0,,aa putw "AT E0 Q0 S0=2 S7=18\r"
  83.     put "AT &C1 &R1 &%s1 &T5 &W0 &Y0 &W0 &W1\r"; wait -f5
  84.     return
  85.  
  86.  
  87. call2    bye; sp 38400
  88.     if "!jbaudstr,baud2" echo "Must use baud2.t!!"; abort
  89.     gosub waketb; pat 1 OK
  90.     put "ATH0 M0 S0=1 \r"; wait -f2
  91.     z pb1    : send break when recovering from ZRPOS
  92.     handshake on
  93.     return
  94. call1    bye; bye; sp 38400; handshake off; gosub waketb; putw ATM0H1\r"
  95.     return
  96.  
  97.  
  98.  
  99. NOTES:    Modem may attempt a v.32bis connection with sertain v.32 modems.
  100.     The /9600 flag is provided to prevent this:
  101. genie96        speed 9600 249-1347/9600/mnp_b set adlopts "lrW30720"; goto g24a
  102.     /300 /1200 /2400 and /9600 flags are supported
  103.